home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / EasyTools / EASYtext < prev    next >
Encoding:
Text File  |  1996-12-13  |  3.4 KB  |  131 lines
  1. /*
  2.  
  3.  
  4. $VER: EASYtext 1.1 (05.04.96) by David De Groot
  5.  
  6. This script works with 'textguide' and 'htmlless' in your c: dir
  7.  
  8.  
  9. */
  10.  
  11.  
  12.  
  13. signal on break_c
  14. options failat 21
  15. NL = '0a'x
  16.  
  17. bool = exists('libs:rexxreqtools.library')
  18. if BOOL = 0 then say "You need RexxReqTools.library"
  19. else call addlib('rexxreqtools.library',0,-30)
  20.  
  21. say ""
  22. say "  EASY does it...                      "
  23. say ""
  24.  
  25. call rtezrequest("Convert a GUIDE or an HTML-file to text?",,
  26.                  "_Guide|_Html","Tell me", 'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  27.  
  28. if rtresult == 1
  29.  then call convguide
  30.    else call convhtml
  31.  
  32.  
  33. convguide:
  34.  
  35. tcheck = exists('c:textguide')
  36. if tcheck = 0
  37.     then do
  38.      call rtezrequest("TEXTGUIDE is not in C:.",, 
  39.                       "Sorry!","ATTENTION!!",'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  40.     exit 
  41.   end
  42. else 
  43.  
  44. guidename = rtfilerequest('ram:', , "Pick a guide to convert:",,,
  45.                           'rt_reqpos=reqpos_centerscr')
  46.  
  47. if rtresult == 0 then
  48.    call rtezrequest("You picked no guide...",,
  49.                     "Goodbye", "Heho!" ,,
  50.                     'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  51.  
  52.      else
  53.       textname = rtgetstring(,"Enter a name for the textfile:" nl,
  54.                              "(textfile will be saved to ram:)",,
  55.                              "Just do it! :-)", "_Ok|_Cancel",,
  56.                              'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  57.  
  58.      if textname = ""
  59.        then call rtezrequest("You didn't type in a name" nl,
  60.                              "or cancelled the operation.",,
  61.                              "Right", "Don't say it's TRUE..." ,,
  62.                              'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  63.  
  64.  
  65. if rtresult == 1
  66.  then do
  67.         address command
  68.         'textguide ' || guidename || ' ram:' || textname || ''
  69.         say ""
  70.         say "  See you again!                       "
  71.         say ""
  72.      end
  73.    exit
  74.  
  75.  
  76.  
  77. convhtml:
  78.  
  79. hcheck = exists('c:htmless')
  80. if hcheck = 0
  81.     then do
  82.      call rtezrequest("HTMLess is not in C:.",, 
  83.                       "Sorry!","ATTENTION!!",'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  84.      exit
  85.   end         
  86. else 
  87.  
  88. htmlname = rtfilerequest('ram:',,"Pick a HTMLfile to convert:",,,
  89.                          'rt_reqpos=reqpos_centerscr')
  90.  
  91. if rtresult == 0 then do
  92.    call rtezrequest("You picked no file...",,
  93.                     "Goodbye", "Heho!" ,,
  94.                     'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  95.   exit       
  96.  end
  97.   else
  98.  
  99. call rtezrequest("How do you want text to be formatted?" nl "" nl,
  100.                  "       1. 80 columns" nl,
  101.                  "       2. 60 columns" nl,         
  102.                  "       3. 40 columns" nl, "", 
  103.                  "_1|_2|_3|_Quit",,'rt_reqpos=reqpos_centerscr')
  104.  
  105. if rtresult == 1 then call fcommand('-hc80')
  106. if rtresult == 2 then call fcommand('-h -c0060')
  107. if rtresult == 3 then call fcommand('-h -c0040')
  108. if rtresult == 0 then exit
  109.  
  110.  
  111. fcommand:
  112.  
  113. address command
  114. 'htmless ' || arg(1) || ' ' || htmlname || ''
  115.  
  116. call rtezrequest("You can find the textfile right under:" nl,
  117.                  "" || htmlname || "",,
  118.                  "Thanks!","EASYtext by David De Groot",,
  119.                  'rt_reqpos=reqpos_centerscr rtez_flags=ezreqf_centertext')
  120.      
  121.  
  122.         say ""
  123.         say "  See you again!                       "
  124.         say ""
  125.      
  126. exit  
  127.  
  128.  
  129.  
  130.  
  131.